unit AddComments;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dRoot, DB, StdCtrls, Buttons, ExtCtrls, ComCtrls, dxSkinsCore,
  dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin,
  dxSkinSilver, dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters,
  dxSkinValentine, dxSkinXmas2008Blue, cxLabel, cxControls, cxContainer,
  cxEdit, cxTextEdit, cxMemo, cxDBEdit;

type
  TfmAddComments = class(TdlgRoot)
    cxDBMemo1: TcxDBMemo;
    cxLabel1: TcxLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmAddComments: TfmAddComments;

implementation
uses IBQuery;
{$R *.dfm}

procedure TfmAddComments.BitBtn1Click(Sender: TObject);
begin
  inherited;
  if not CheckEditing then exit;
  ModalResult := mrOk;
end;

procedure TfmAddComments.BitBtn2Click(Sender: TObject);
begin
  inherited;
  (DlgDS.DataSet as TIBQuery).CancelUpdates;

end;

end.
